home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / os2 / xdsn217.zip / SAMPLES / WATCOM / m2test.mod < prev    next >
Text File  |  1995-12-04  |  387b  |  17 lines
  1. IMPLEMENTATION MODULE m2test;
  2.  
  3. IMPORT STextIO, SWholeIO, stdio;
  4.  
  5. PROCEDURE ["C"] m2func(a,b: INTEGER): INTEGER;
  6. BEGIN
  7.   STextIO.WriteString("m2func(");
  8.   SWholeIO.WriteInt(a,0); STextIO.WriteChar(',');
  9.   SWholeIO.WriteInt(b,0); STextIO.WriteChar(')');
  10.   STextIO.WriteLn;
  11.   stdio.printf ("And now calling 'printf' from Modula-2\n");
  12.   RETURN a+b
  13. END m2func;
  14.  
  15. END m2test.
  16.  
  17.